home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d5 / speech.arc / TQUERY.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-03-16  |  11.1 KB  |  128 lines
  1. 1  SCREEN 0:WIDTH 80:KEY OFF:CLS:COLOR 2
  2. 2  M$="TQuery - Telephone database for the visually impaired"+CHR$(13)+"<c> 1986 Michael B. Garrett/WAO Labs"+CHR$(13)+"More magic from................"
  3. 3  FOR T=1 TO LEN(M$):PRINT MID$(M$,T,1);:SOUND 5000,1:FOR W=1 TO 50:NEXT:NEXT
  4. 5  CLS:KEY OFF
  5. 10  SCREEN 1:COLOR 7,1:BLOAD "logo.zap":COLOR 9,1
  6. 12  FOR T=300 TO 600:SOUND T,0.000999999:NEXT:SCREEN 0:WIDTH 80:CLS:COLOR 2
  7. 50  ' load machine subroutine
  8. 60  CLEAR ,&H4000:TALK=&HE000:DIM A$(36)
  9. 70  FOR I=0 TO 71:READ J:POKE TALK+I,J:NEXT I
  10. 80  ' the machine language subroutine
  11. 90  DATA &H55,&H8B,&HEC,&H8B,&H76,&H6,&H8A,&H4,&H8A,&HC8
  12. 100  DATA &H46,&H8B,&H3C,&H8A,&HE9,&HE4,&H61,&H24,&HF7,&HE6,&H61
  13. 110  DATA &H8A,&H3D,&H80,&HFF,&H20,&H74,&H25,&HB6,&H6,&HFE,&HC6
  14. 120  DATA &HD0,&HE7,&H32,&HE4,&HD0,&HE7,&HD0,&HD4,&HD0,&HD4,&HE4
  15. 130  DATA &H61,&H24,&HFC,&H2,&HC4,&HE6,&H61,&HB3,&H25,&HFE,&HCB
  16. 140  DATA &H75,&HFC,&HFE,&HCE,&H75,&HE6,&H47,&HFE,&HCD,&H75,&HD4
  17. 150  DATA &H5D,&H58,&H5B,&H59,&H53,&H50,&HCB
  18. 160  ' set voice definitions
  19. 170  A$(1)="<UNK! {00F8}><UNK! {0080}>LET<UNK! {0080}>NEXTBLOADXORRETURNREADEND<UNK! {0080}>SAVEREADNEXT<0xE1!><0xE0!>SYSTEMMOTORXORLINE<0x9F!>END<0xE0!><UNK! {00F8}>STOPREMCLSXORLOAD<UNK! {0080}><0x9F!>CLSLINELOADRUNREMCLSOUTLLISTREADREM<0xE0!>OUTREMENDREADXORREADREADCLS<0xE1!>XORNEXTBLOAD<0xE0!><UNK! {00F8}>SYSTEMBLOADXOR<UNK! {00F8}>LEFT$<0xE3!>XOR<UNK! {00F8}>COLORNEXT<0xE3!>XOROPTIONLEFT$<0xE1!>XORLOADCOLOREND<0xE1!><UNK! {00F8}>OUTCOLORMOTORXOR<UNK! {00F8}>LLIST<0x9F!>CLSXOR<UNK! {00FC}>RETURN<0x9F!><0xE0!><UNK! {00F8}>SAVEREADREM<0xE0!><UNK! {00F8}>LOADREMREM<0xE0!><UNK! {00F8}>LLISTREADPRESET<0xE0!>LOAD<0x9F!>READBLOADXORLOAD<0x9F!>READ<0xE1!>XORSAVEREMNEXT<0xE1!>XORSAVEREMNEXTEQV<0xE0!>LOADREMBLOAD<UNK! {00F9}>CLS<UNK! {00F8}><0x9F!>READ<UNK! {00F6}>END<UNK! {00F8}>SAVEREAD<UNK! {00FC}>NEXTXOR<UNK! {00FC}>REMXORREMMOTOR<UNK! {00F8}>COLORCLSSAVENEXTXOR<UNK! {00FC}>END<UNK! {00F8}><0x9F!>PRESETXORREMCLS<UNK! {00FC}>SAVEEND<UNK! {00FC}>REM<UNK! {00F7}><0xE0!><0x9F!>CLS<UNK! {FFFE}>END<UNK! {00FC}>READ<UNK! {FFE0}><0x9F!>CLS<UNK! {FFFC}>NEXT<UNK! {00F8}>REM<UNK! {FF80}>COLORNEXT<UNK! {FFF0}>READ<0xE0!><UNK! {FFFC}>NEXT<UNK! {00F8}><0x9F!><UNK! {FF80}><UNK! {00FC}>REM<UNK! {FF80}>LOADREM<UNK! {FF80}>OUTREM<UNK! {FF80}>OUTREM<UNK! {FF80}>DATAREM<UNK! {FF80}><UNK! {0080}>COLOR<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FFF8}>"
  20. 180  A$(2)="<UNK! {FE80}>POKERESTOREEND<UNK! {00FC}>NEXT<UNK! {FFF0}>NEXTXORREM<0xE3!>CLS<0x9F!>CLSLOADRETURNEND<UNK! {00FC}>NEXTXOR<UNK! {00F8}>READXORREMREADCLS<0x9F!>CLSLOADLLIST<UNK! {0080}><UNK! {00FC}>END<0xE0!><UNK! {00FC}>NEXT<UNK! {00F8}>NEXTMOTORXORREADXORREADNEXT<0xE0!>REM<0xE0!>LLISTREADCLS<0x9F!>CLSOUTREM<UNK! {0080}>COLOR<UNK! {0080}>OPTION<0x9F!><UNK! {0080}>SAVE<UNK! {0080}>XORSAVE<UNK! {0080}><UNK! {00FC}>END<0xE0!><UNK! {FE80}><UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FE80}><UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FE80}><UNK! {FE80}><UNK! {0080}><UNK! {FE80}><UNK! {FE80}><UNK! {0080}><UNK! {FE80}><UNK! {FE80}><UNK! {0080}>SAVE<UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}><UNK! {FE80}><UNK! {FE80}><UNK! {0080}>SAVE<UNK! {0080}><UNK! {FF80}><UNK! {0080}>LLIST<UNK! {0080}>COLOR<UNK! {0080}>DATARETURN<UNK! {0080}>COLOR<UNK! {0080}>OUTRESTORE<UNK! {0080}><UNK! {FE80}>OUTPOKE<UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {00FC}>STOPNEXT<UNK! {00F8}>END<0xE1!><UNK! {0080}>REMCLSREM<UNK! {0080}><UNK! {0080}>SAVE<UNK! {0080}><UNK! {00F8}><UNK! {0080}>READ<0xE0!>RESTORE<UNK! {0080}><UNK! {0080}>OPTION<UNK! {0080}><UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}>NEW<UNK! {0080}><UNK! {0080}><UNK! {0080}>RETURN<UNK! {0080}><UNK! {0080}><UNK! {0080}>RETURN<UNK! {0080}><UNK! {0080}><UNK! {0080}>RUN<UNK! {0080}><UNK! {0080}><UNK! {0080}>FOR"
  21. 190  A$(3)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>GOTO<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>REM\<UNK! {0080}>READ<UNK! {00F8}>COLOR<UNK! {0080}>NEXT<UNK! {00FC}><0x9F!><UNK! {FE80}>SAVEREAD<UNK! {FF80}>REMMOTOR<UNK! {FFE0}>READXORCOLOR<UNK! {00F8}>NEXT<UNK! {00F8}><0x9F!><UNK! {00FC}><UNK! {0080}>SYSTEM<UNK! {FF80}><0x9F!>CLS<UNK! {FFF0}>READ<UNK! {00F8}>REM<UNK! {FE80}>COLOREND<UNK! {FFE0}>READ<UNK! {00F8}>REM<UNK! {FE80}>COLORCLS<UNK! {FFF0}>NEXT<UNK! {00FC}>NEXT<UNK! {FE80}>COLORCLS<0x9F!><UNK! {00F8}>ENDFILES<UNK! {FFE0}>READ<UNK! {00F8}>READ<UNK! {FF80}><0x9F!><0xE0!><0x9F!><UNK! {FE80}>COLOR<UNK! {0080}>COLOR<UNK! {00F8}>ENDFILES<UNK! {FFF0}>NEXT<UNK! {00FC}>END<UNK! {FFE0}>REMXORNEXT<UNK! {FF80}><0x9F!><0xE0!>READ<UNK! {FF80}><0x9F!>CLSREM<UNK! {FE80}>COLORCLSREM<UNK! {FE80}><UNK! {FF80}>READ<UNK! {00FC}><UNK! {0080}><UNK! {FF80}>REM<UNK! {00F8}>END<UNK! {FE80}>DEFXORREAD<UNK! {00F8}>NEXTPRESETCLS<0x9F!><0xE0!>OUTLLIST<UNK! {0080}><UNK! {FE80}>XORXORREADXORREMRETURN<UNK! {0080}>SAVEENDXORXORREADCLS<UNK! {0080}>RETURN<UNK! {0080}>OPTIONFOR<UNK! {0080}>CLSNEXT"
  22. 200  A$(4)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9A!><UNK! {0080}>GOSUB<UNK! {0080}>NEXTXOREND<UNK! {00F8}>CLSREM<0xE0!>REMCLSEND<UNK! {FE80}><UNK! {00FC}>WIDTHREMXORREMIMP<UNK! {0080}><UNK! {FF80}><UNK! {FFB0}>READXORREAD<UNK! {00FB}><UNK! {0080}><UNK! {FF80}>COLORPOKEREAD<UNK! {00F8}>END<UNK! {00FA}>CLSREMCLSREM/NEXT<UNK! {00FC}><UNK! {0080}><UNK! {FDA0}>REMXORNEXT<UNK! {FDC0}><0x9F!>CLSREM<UNK! {FE80}>SAVE<UNK! {0080}><0x9F!><UNK! {00F8}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {FFB0}>READ<UNK! {00F8}>END<UNK! {00FC}>XORREMXORNEXT<UNK! {00F8}>CLS<0x9F!>CLSREM<0xE3!><UNK! {0080}><0x9F!><UNK! {0080}><0x9F!>STRING$<UNK! {0080}>SAVE<UNK! {0080}>COLORDEFSTR<UNK! {0080}><UNK! {00FC}><UNK! {0080}>MKDIREND<UNK! {00F8}>END<UNK! {00FC}>WIDTHREADXORNEXT<UNK! {00F8}><UNK! {0080}>REM<0xE0!>REM<0xE0!><UNK! {0080}><UNK! {FE80}>PENNEXT<UNK! {00F8}>NEXT<UNK! {FF80}><0x9F!>CLS<0x9F!><UNK! {00F8}>END<UNK! {00FC}>END<UNK! {FF80}><0x9F!>CLSREADXORNEXT<UNK! {00F8}>END<UNK! {FE80}>SAVE<UNK! {0080}>COLOR<UNK! {0080}>REMCLS<UNK! {0080}><UNK! {0080}>NEXT<0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}>OPTION<UNK! {0080}><UNK! {0080}><UNK! {0080}>FOR"
  23. 210  A$(5)="<UNK! {00FC}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><0x9F!><UNK! {0080}>REMCLSREM<0xE0!>READ<0xE0!>READXORNEXT<UNK! {00F8}>NEXT<UNK! {00F8}>END<UNK! {00FC}>END<UNK! {00FC}><UNK! {0080}>FILES<UNK! {FE80}>SAVE<UNK! {0080}><UNK! {FE80}>COLOR<UNK! {0080}>COLORCLSREM<0xE0!>REMXORNEXT<UNK! {00F8}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {FF80}><UNK! {FFC0}>REMXORREM<UNK! {00F8}>NEXT<UNK! {00FC}>NEXT<UNK! {FE80}>COLORCLSCOLOR<0xE0!>READXORREAD<UNK! {00FC}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}>COLORCLSREMXORREAD<UNK! {00FC}><UNK! {0080}><UNK! {FE80}>COLORCLS<0x9F!><0xE0!>READ<UNK! {00F8}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}>COLORCLSREMXORREAD<UNK! {00FC}><UNK! {0080}><UNK! {FE80}>COLORCLSREMXORREAD<UNK! {00FC}>END<UNK! {FE80}><UNK! {FF80}><0x9F!><0xE0!>REMXORNEXT<UNK! {00FC}>END<UNK! {FF80}>COLORCLS<0x9F!><0xE0!>READXORNEXT<UNK! {00FC}>END<UNK! {FE80}><UNK! {FF80}><0x9F!>CLSCOLOR<0xE0!>REM<0xE0!>REM<UNK! {00F8}>NEXTXORREAD<UNK! {00F8}>END<UNK! {00F8}>END<UNK! {00FC}><UNK! {0080}>SAVE<UNK! {0080}>LINE<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA"
  24. 220  A$(6)="<0xE0!><0xE0!><0xE0!>XORPOKEOPTIONELSEPRESETNEXTREADDIMRETURN<UNK! {00F8}>LINEXORBLOADSTEPREADREMRESTOREOUT<UNK! {00F8}>LINE<UNK! {00F8}><0xE1!>=BLOADREADDIMLLIST<UNK! {00FC}>POKE<UNK! {00F8}><0xE1!>=BLOADREADDIMOUT<UNK! {00FC}>LINE<UNK! {00F8}><0xE1!>ORBLOADREADOUTCALL<UNK! {00F8}><0xE1!>MODPSET<0x9B!>DIMRETURNOPTIONMODOPTION<0xE1!>BLOADRETURNCLOSEDIMRESTORELINE<0xE3!><UNK! {00F8}>LINE=DIM<0x9F!>DIMOUT<UNK! {00F8}>ERROR<UNK! {00F9}>NOTERRORLETCOLORTHENNEWXOR<0xCB!><UNK! {00F8}>FNBLOADDIMSTEPBEEPRESTOREPOKESTOP<UNK! {00FC}>RESUME+<0xE1!>INKEY$<0xE2!>READ<0xE4!><0x9F!><UNK! {00F6}><UNK! {0080}>DIMREADEQVCLS<UNK! {0080}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS"
  25. 230  A$(7)="CLS<UNK! {0080}>CLS<UNK! {0080}>TRON<UNK! {0080}>DATA<UNK! {0080}>CLSCLSWHILE<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DATABSAVEDEFSTRFORDATA<UNK! {0080}>RANDOMIZE<UNK! {0080}><UNK! {0080}>ENDSTOPINPUT\FORSCREENDATAENDLEFT$SWAPSTOPENDLEFT$<0xE0!><UNK! {0080}>ENDSYSTEM<0xE0!>STOPNEXT<UNK! {00FC}>READCLS<UNK! {0080}>REMXOR<0x9F!>END<UNK! {0080}><0x9F!><0xE0!>NAME<UNK! {0080}>LEFT$<UNK! {00FC}>LETENDFILES<UNK! {00F8}><UNK! {0080}>NEXT<UNK! {00FC}>NEXTXORWIDTHREAD<UNK! {00F8}>READXORCLSREM<UNK! {00F8}>READ<UNK! {00F9}>CLSREM<UNK! {00F8}>NEXT<UNK! {FDC0}>REM<UNK! {00F8}>NEXT<UNK! {FFC0}>READ<UNK! {00F8}>END<UNK! {FFE0}>READ<UNK! {00FC}>END<UNK! {FFE0}>READ<UNK! {00F8}>END<UNK! {FFC0}>READ<UNK! {00FC}><UNK! {0080}><UNK! {FFE0}>READ<UNK! {00FC}><UNK! {0080}><UNK! {FFE0}>READ<UNK! {00FC}><UNK! {0080}><UNK! {FFE0}>READ<UNK! {00F8}><UNK! {0080}><UNK! {FFE0}>READ<UNK! {00F8}><UNK! {0080}><UNK! {FFC0}>REMXOREND<UNK! {FF80}><0x9F!><0xE0!>READ<UNK! {FE80}><UNK! {FF80}>COLORXORNEXT<UNK! {00FC}>END<UNK! {FFC0}><0x9F!><0xE0!>REM<UNK! {00F8}>END<UNK! {00FC}>END<UNK! {FE80}>LLIST<UNK! {0080}>OPTIONCLSREMCLSPOKE<UNK! {0080}><UNK! {0080}><0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>LET"
  26. 240  A$(8)="<UNK! {00FC}>READNEXT<0xE0!>XORKILLPRESET<0xE1!>XOR<UNK! {00FC}>REMREADBLOADXOR<UNK! {00F8}>LLISTREMBLOAD<0xE1!>XORLOADREMREADBLOAD<0xE0!><UNK! {00F8}>LOADREMREADNEXTXOR<UNK! {00F8}>SAVEPOKEREMPRESET<0xE0!><UNK! {00F8}><INKEY$READNEXT<UNK! {00F6}>ENDXOROPTION<0x9F!>LINEREMNEXTXOR<UNK! {FF80}><UNK! {00FC}>REMPRESETXORREMMOTOR<UNK! {00F8}><UNK! {00FC}>NEXT<UNK! {00F8}><0x9F!><0xDF!>CLSOUTNEXT<UNK! {FFF0}>REMCLSDEFDBL<UNK! {00F8}>READ<0xE0!>INPUT<UNK! {00FC}>NEXT<UNK! {00FC}><UNK! {0080}><0xDF!><UNK! {0080}><0x9F!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {0080}>DATAELSEEND<UNK! {0080}>STOPDATALETBSAVE<UNK! {0080}>LETSTOPSTOPGOTODIMENDDATAWIDTHDATA<UNK! {0080}><UNK! {0080}>BSAVEDATACLSENDERASE<UNK! {0080}>LINEENDWIDTH<UNK! {0080}>BSAVESCREENLET<UNK! {0080}>SPC(BSAVELETLETCLS<UNK! {0080}>LETCLS<UNK! {0080}><UNK! {0080}><UNK! {0080}>LPRINTWAIT<UNK! {0080}><UNK! {0080}>ERASELINE<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>ERR<UNK! {0080}>RUNERRXORENDAUTOCLS<UNK! {0080}>DIMRETURN<UNK! {0080}><UNK! {0080}>DIM"
  27. 250  A$(9)="PRESET<UNK! {0080}>TRONWENDNEXTLET<0xB4!>PRINTCALLENDLETSAVERESTORE<<0xE2!>DIMDATATROFFIFOUTCLSSOUNDRESTOREMODTROFFOUTCALLFORPOKE'PSETLET<0xE3!>RESTORE/<0xE3!>RESTORE<0xE3!>RESTOREDEFSTR<0xE3!>LETBSAVEPOKE<UNK! {00F9}>>OUTBLOADPOKE<UNK! {00F9}><0xE3!>RESTORE<0xE1!>RESTORE/<0xE0!>PSETBSAVERESTORELOAD<0xE0!>DIMTROFFDIMLLISTLINEFORWHILEBLOADRUNPOKE<UNK! {0080}>POKE+PRESETTOENDRESTOREOUT<0xE2!>><UNK! {0080}>ERRORRESTOREPOKEEQVCLSPRINTPSETDIMDATALINEDATAWHILESCREENMOTORTOENDRESTORELISTPOKECALLBSAVE<UNK! {0080}><UNK! {0080}>TROFFDIMOPTIONPSETPOKEGOTOBLOADWAITENDTOTRONLINE<0xE3!><UNK! {0080}>ELSEMOTORRUN<0xB4!><0xE0!>DATALINETROFFLOCATEOUTSTOPSCREENUSR<0xE1!>PSETFORLETOPTIONWHILEEQVBSAVEDATALET<0xB4!>LINEMOTORDIMLETOPTION<UNK! {00F8}>WIDTHRETURNSTOPXOR<UNK! {00F8}>STOP<0x9F!><UNK! {0080}>LINELOADLETREM<UNK! {0080}><UNK! {00F8}>OPTIONOUTREMCLSXOR<UNK! {00FC}>RETURNREMEND<0xE0!><UNK! {00F8}>OUTLLISTREADMOTORXOROPTIONXORLLISTREADENDEQV<UNK! {0080}>XOROPTIONREADLETREMNEXTCLSRANDOMIZE<UNK! {0080}>XOROPTIONREAD<UNK! {0080}>RETURNREAD<UNK! {0080}>LINEEND<UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXTCLS<UNK! {0080}><UNK! {0080}>ENDCLS<UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH"
  28. 260  A$(10)="FOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>FORLETENDSOUNDWIDTH<UNK! {0080}>STOPFORSWAPCLEAR<END<UNK! {00FC}><UNK! {0080}>ERLSTOPNEXT<UNK! {00FC}>READXORXORNEXT<UNK! {00F8}>REM<0xE1!>XOR<0x9F!><0xE0!>COLORREADCLSCOLORNEXT<UNK! {00F8}>SAVEEND<UNK! {00FC}>REMBLOAD<UNK! {00FC}>READ<0xE0!><UNK! {00FC}><0x9F!>LETREMMOTORXOR<UNK! {00FC}>LINE<0x9F!>READ<0xE1!><UNK! {00F8}>XORLLISTREMMOTORXOR<UNK! {00F8}>LLISTREMNEXT<0xE1!><UNK! {00F8}>LLISTREADBLOAD<0xE1!><UNK! {00FA}>NEXT<0xE3!>XOR<UNK! {00F8}>LOAD<UNK! {0080}><UNK! {00F8}>LOADLLISTREMPOKELLISTREMREADBLOAD<UNK! {00F6}>READPRESET<0xE1!>XORCVI<0xE1!><UNK! {00F8}><UNK! {00F8}>COLORENDXOR<UNK! {00F8}>LOAD<0x9F!><0xE0!><UNK! {00F8}>LOADLLISTREADUSRLOADLLISTREMNEXT<UNK! {00F8}>LLISTREMREADMOTOR<UNK! {00F8}>LLISTREMBLOAD<0xE1!><UNK! {00FC}>READPRESET<0xE1!>XORLOADREADBLOADXORXORSAVENEXT<0xE1!><UNK! {00F8}>LOADLLISTENDXOR<UNK! {00FC}>LLISTREADEND<UNK! {00F8}>SAVEREADREAD<UNK! {0080}><UNK! {00F8}><0x9F!>READ<0xE3!><UNK! {0080}><UNK! {00FC}><0x9F!>NEXT<0xE3!><UNK! {0080}><UNK! {00F8}><0x9F!>NEXT<UNK! {00FC}>ENDXOR<UNK! {00FC}>REM<0xE0!>REMMOTOR<UNK! {00F8}>COLOR<UNK! {0080}><UNK! {00FC}>REMMOTOR<UNK! {00F8}>READ<0xE0!><UNK! {00FC}><0x9F!><UNK! {0080}><UNK! {00FC}>REMBLOAD<0xE0!><0x9F!>NEXTXOR<UNK! {00F8}>READ<0xE1!><UNK! {00FC}>SAVE<UNK! {0080}><UNK! {00F8}>COLORCOLOR<UNK! {0080}>XORCOLOR<UNK! {FE80}><UNK! {0080}>COLOR<UNK! {00FC}><UNK! {0080}><UNK! {0080}>COLOR<<UNK! {0080}><UNK! {0080}>COLOR<0xE0!><UNK! {0080}><UNK! {0080}>COLOR<0xE0!><UNK! {0080}><UNK! {0080}>COLORWIDTH<UNK! {0080}><UNK! {0080}>OUT"
  29. 270  A$(11)="CLSDIM<UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLSSTOPSTOP<UNK! {0080}><UNK! {0080}>POKE<UNK! {0080}><UNK! {0080}>READ<UNK! {FFFC}><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLOR<UNK! {00F8}><UNK! {0080}>END<UNK! {FE80}><UNK! {FEFC}><UNK! {0080}><UNK! {FF80}><UNK! {0080}>FOR<UNK! {FFE0}>NEXT<UNK! {00F8}>READ<UNK! {FFF9}>XOR<0x9F!>PRESETXOR<UNK! {00FA}>END<UNK! {00F8}>SAVE<0x9F!>XORLLISTREM<0xE3!><UNK! {00FB}>ENDXOR<UNK! {00FC}>COLORPOKEREMREAD<0xE1!><UNK! {00F9}><0xE0!>LOAD<0x9F!>READPRESETENDXOR<UNK! {00FC}>LLISTLLISTNEXT<0xE3!>XOR<UNK! {00F8}>LOADREMREADBLOADXOR<UNK! {00F8}>RETURNREMPRESET<0xE1!><UNK! {00F8}>LLISTREMREADNEXTXORLLIST<0x9F!>REMNEXT<UNK! {00F8}>RETURNREMREADBLOAD<UNK! {00FC}>READREADBLOAD<0xE1!>MID$<0xE3!><0xE1!>XOR<UNK! {FFC0}>XOR<UNK! {00F8}>OPTIONCOLORXORLOADSAVELLISTREAD<UNK! {00FC}>RETURNREMREADBLOAD<UNK! {00FC}>READPRESETMOTORXORLEFT$EQV<UNK! {00F8}>LOAD<0x9F!><0xE0!>OPTIONSAVEREMREAD<UNK! {00FC}>REMREAD<0xE1!>XORLEFT$XOR<UNK! {00F8}>LLISTREADXORLLISTREMBLOAD<0xE1!><UNK! {00FC}>REM<0xE3!>XORLOADREMEND<UNK! {00F8}>SAVEREAD<0xE3!><0xE0!>SAVEREAD<0xE0!><UNK! {FEF0}>REM<0xE1!><UNK! {00F8}><0x9F!><UNK! {00F8}>READXOR<UNK! {00FC}>REM<UNK! {00FC}>NEXTXORSAVEREAD<UNK! {00F8}>NEXTXORSAVEREADXORREM<0xE0!><UNK! {00FC}>REM<0xE0!><0x9F!>MOTOR<UNK! {00F8}><0x9F!><UNK! {0080}>SAVENEXTXOR<UNK! {00FC}>END<UNK! {00F8}><0x9F!>READXORREAD<0xE1!><UNK! {00F8}>COLOR<UNK! {0080}><0x9F!>READ<UNK! {FFF0}>END<0xE3!>"
  30. 280  A$(12)="CLS<0xE0!><UNK! {0080}>READENDBLOADBLOAD<UNK! {0080}>READENDBLOADBLOADNEXTREMENDBLOADBLOAD<UNK! {0080}>RESTOREENDBLOAD<0xE1!><UNK! {0080}>DIM<UNK! {0080}><0xE1!><0xE1!>BSAVERETURN<UNK! {0080}>LINEEQV<0xE3!>REM<UNK! {0080}>LINE<UNK! {00F9}><0xE0!>BLOADDATAPOKELINE<0xE0!>BLOAD<0xE2!>RESTOREPOKELINEELSE<UNK! {00FB}>RETURNRESTOREOPTIONPRINTMERGEREADRETURNOUTLINETAB(PRESETPRESETRESTORELETERRORTROFFBSAVERESTOREDATAERROR<0xE1!>BLOADBLOADFORCONTINSTR<0xE0!><0xE0!><0xE0!>DATA<UNK! {00F8}>LINEOPTIONPOKE<0xE0!>LOADOUTOUTDEFSTRWHILELLISTRETURNDIM<0x9A!>RESTOREORREADNEXTSOUNDDIMCALLREADNEXTBSAVENEXTOUTBLOADMOTOR<0xE1!><UNK! {0080}>TAB(<0xE1!><0xE0!>XOR<0xE0!>CALL<0xE0!>XOROPTIONLINEREM<0xE0!>XORLOADPOKEREADXOR<UNK! {00F8}>OUTRESTOREREADXOR<UNK! {00F8}>LLISTRETURNREAD<0xE0!>XORLOADRETURNREAD<0xE1!>XORLOADRETURNREADMOTORXORLOADREMREADMOTORXORLOADREMREADNEXT<0xE0!>OPTIONRETURNDIMREADCLSXOROUTOUTREMNEXT<0xE0!>LINE<0xE0!><UNK! {00F8}>REMEND<0xE3!>NEXT<0xE0!>LOADREADSCREENREMEND<0xE0!>LLIST<UNK! {0080}><UNK! {00F8}>RETURN<UNK! {0080}><UNK! {00FC}>READEND<0xE0!>RESTORE<0xE0!>XOROUTEND<UNK! {00F8}>LETREAD<UNK! {0080}>READBLOADEND<0xE0!><UNK! {0080}>XORDATASTOP<UNK! {0080}>LOAD<UNK! {0080}>DATA<UNK! {0080}>CALL<UNK! {0080}><UNK! {0080}><UNK! {0080}>GOTO<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}>ENDRESTORE"
  31. 290  A$(13)="<0xE0!>NEXTNEXTBLOADREAD<UNK! {0080}>OUTOUTRESTORERESTORE<UNK! {0080}>RESTORELLIST<UNK! {0080}>GOSUBSOUNDRETURNLLISTLETNEXTMOTORNEXTPRESETBSAVE<UNK! {0080}><UNK! {0080}>LINE<0xE1!>EQVMOTORRESUMEDATARESTORELOADPOKEELSE<UNK! {0080}>MOTORREADBLOADDATAUSRDATAPOKEOPTIONSTOPTAB(<UNK! {0080}>NEXTREADSTOPGOTOCLS<UNK! {0080}><0xE1!>IMP<UNK! {0080}>INSTRDIMRESTOREOUTLINEERASE<UNK! {0080}>ELSEBLOADBSAVEDATA<UNK! {00F8}>POKEOPTION<UNK! {00F8}>STOPREMNEXTBEEPPRESETMOTORENDINSTRPOKEINSTR<UNK! {00FC}>LET<0x9F!>DIMREADREMCLS<0xE0!>XORCLS<UNK! {00F8}><UNK! {00FC}>READ<0xE0!>LETREADCLSCLSREADCOLORCLSCOLOR<UNK! {0080}><UNK! {0080}>SAVE<UNK! {0080}><UNK! {0080}><UNK! {FF80}>NEXT<UNK! {0080}><UNK! {0080}><0x9F!><0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}>REMXOR<UNK! {0080}>NEXT<UNK! {0080}>REM<UNK! {00F8}><UNK! {0080}>END<UNK! {0080}>REMXOR<UNK! {0080}>FOR<UNK! {0080}>REMXOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!><0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FFC0}><UNK! {0080}>WIDTHEND<UNK! {FE80}><UNK! {0080}><UNK! {0080}>REMXOR<UNK! {0080}><UNK! {0080}><UNK! {0080}>COLORCLS<UNK! {0080}><UNK! {0080}>NEXT<UNK! {FF80}><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {00F8}><UNK! {0080}><UNK! {0080}>END<UNK! {FFC0}><UNK! {0080}><UNK! {0080}>COLORSTEPCLSXORREMMOTOR<UNK! {00F8}>LLISTEND<UNK! {00F8}>SAVEREM<0xE0!>LOADREMMOTOR<UNK! {00F8}>REMNEXTXORSYSTEM<0xE0!><UNK! {00F8}><0x9F!><UNK! {0080}>XORSAVEREM<0xE0!>OPTIONREMPRESET<0xE0!>OUTREM=XOROUTREM=<0xE0!>RESTOREREM<UNK! {FFC0}><UNK! {0080}><0x9F!><UNK! {00FB}><UNK! {0080}><UNK! {0080}><0x9F!>\"
  32. 300  A$(14)="MOTOR=<0xE1!><0xE1!>=<UNK! {0080}>OR<0xE1!><0xE1!>=<UNK! {0080}>ORMOTORTROFFOREND<UNK! {FFC3}>BLOADTAB(ENDINTINPUTOUTINPUTSAVERETURNREMOPTIONINPUTRESETRETURN<UNK! {00F8}>IF<UNK! {00FC}>NEWLLISTXOR<0x9F!><UNK! {00F8}>OPTIONMERGELINE<0x9F!>XORXORLCOPYCOLOR<0xE0!>LINESYSTEMLEFT$<0xE0!><UNK! {00FC}>READ<UNK! {FE80}><0x9F!><UNK! {00FC}>END<UNK! {00FC}><UNK! {0080}><UNK! {FFF0}>READXORNEXT<UNK! {FFC0}>COLORCLSREMFILES<UNK! {00FC}><UNK! {0080}>COLOR<UNK! {00F8}>REMXORNEXT<UNK! {FFC0}>COLOR<UNK! {0080}><0x9F!><UNK! {00FC}>READ<UNK! {00F8}>END<UNK! {FFE0}>COLORCLSREMFILES<UNK! {00FC}><UNK! {0080}><UNK! {FFF0}><0x9F!><0xE0!>READFILES<UNK! {00FC}><UNK! {0080}><UNK! {FFE0}><0x9F!>CLSREAD<UNK! {00FC}>READ<UNK! {00F8}>ENDLEFT$<UNK! {FE80}>COLORXOR<0x9F!>CLSREM<UNK! {00FC}>REMXORENDMID$<UNK! {00FC}><UNK! {0080}><UNK! {FFE0}><UNK! {FE80}><0x9F!>XORCOLOR<UNK! {0080}>REM<UNK! {00F8}><0x9F!><0xE0!>READPAINTXORNEXTFREXORNEXTSQRXORENDSQRXOREND<UNK! {FEC7}>XORENDSAVESTEPXORENDCOLOR<0xDF!>XOR<UNK! {0080}><UNK! {00FC}>COLOR<0xE0!>RESTORE<0x9F!><UNK! {FFC0}>POKE<0x9F!><UNK! {FF80}>CLS<UNK! {FFF8}>DIMNEXT<UNK! {FFE0}>RESTOREREM<UNK! {FFC0}>LINECOLOR<UNK! {FE80}>CLS<UNK! {FEFC}>NEXTNEXT<UNK! {FFF0}>DATAREAD<UNK! {FFE0}><UNK! {0080}>REM<UNK! {FF80}><UNK! {0080}>COLOR<UNK! {00FC}><UNK! {0080}>END<UNK! {FFF0}><UNK! {0080}>READ<UNK! {FF22}>
  33. 310  A$(15)="XOROPTIONWIDTH<UNK! {0080}>NEXTNEXTDIMFOR<UNK! {0080}>RETURNRETURNRESTORE<UNK! {0080}>STOPOUTRETURNRESTORE<UNK! {0080}>WIDTHOUTRETURNLETDATAWIDTHOUTRETURNRESTOREDATA<UNK! {0080}>OUTRETURNRETURNDIM<UNK! {0080}>RETURNREADDIMNEXT<UNK! {0080}>READNEXTBLOADEND<UNK! {0080}>READEND<0xE1!>CLS<0xE0!>NEXTCLSXORXORWIDTH<UNK! {0080}>XOROPTIONOUTLET<UNK! {0080}>OPTIONRETURNNEXTDIM<UNK! {0080}>READNEXTMOTOR<0xE0!><0xE0!>WIDTHXOROPTIONOPTIONPOKERESTOREOUTREADDIMNEXTCLS<0xE1!><0xE0!><UNK! {00F8}>LINEPOKERESTORERETURNREADBLOADMOTOR<0xE0!>LINEXOROUTRESTOREREADNEXTBLOAD<0xE0!>XORLINERESTOREDATAREMNEXT<0xE1!><0xE0!>LINESTOPOPTIONRETURNREADEND<0xE0!>MOTORXORLOADRESTOREREADENDNEXT<0xE0!><UNK! {00F8}>OUTRETURNFORREADEND<0xE0!>POKEOUTDATARETURNNEXT<0xE0!>LINEOPTIONLETOUTREAD<UNK! {0080}><0xE1!><0xE0!>WIDTH<UNK! {00F8}>LLISTNEXTMOTORCLSENDXOROUTREADNEXTCLSNEXT<0xE0!>OPTIONRETURNNEXT<UNK! {0080}>READCLSXORRESTOREDIM<UNK! {0080}>REMEND<0xE0!>OUTRESTORE<UNK! {0080}>LLISTNEXT<0xE0!><UNK! {00F8}>OUT<UNK! {0080}>LOADREADCLSXOR<UNK! {0080}><UNK! {0080}><UNK! {00F8}>REM<UNK! {0080}>XOR<UNK! {0080}>ENDXORLLISTEND<0xE0!><UNK! {0080}>READ<0xE0!>LOADNEXTCLS<UNK! {0080}><0x9F!><UNK! {0080}>XORRETURN<UNK! {0080}>END<UNK! {00F8}>READEND<0xE0!><UNK! {0080}>SAVEEND<0xE0!>RESTORE<UNK! {0080}><0x9F!><UNK! {0080}><UNK! {00F8}>READ<UNK! {0080}><0x9F!><UNK! {0080}>OPTIONREAD<0xE0!><0x9F!>"
  34. 320  A$(16)="CLSPOKEGOTO<UNK! {00F8}><UNK! {0080}>END<UNK! {FFFC}><UNK! {0080}>ENDCLS<0x9F!>XOR<UNK! {0080}>REM<UNK! {FFFF}><UNK! {0080}><UNK! {0080}><UNK! {0080}>REMXORREM<UNK! {0080}>COLOR<0xE0!><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {FFF0}><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {00F8}><UNK! {0080}><UNK! {00FA}><0x9F!>CLS<0x9F!>MOTOR<UNK! {00FC}>END<UNK! {00FC}>REM<0xE0!>REM<0xE0!><UNK! {FF80}>COLORNEXT<UNK! {00FC}>END<UNK! {00FC}>READXORREADXOR<0x9F!>CLSREM<0xE0!>COLORCLS<0x9F!>CLS<UNK! {FFC0}><0x9F!>CLS<UNK! {FFC0}>REMCLSCOLOR<0xE0!>READ<0xE0!><0x9F!>XORNEXT<UNK! {00F8}>READ<UNK! {00FC}><UNK! {0080}><UNK! {FE80}><UNK! {FDC0}>REM<0xE0!>REMINSTRENDFILES<UNK! {00F8}><0xE0!>READ<UNK! {00F8}>NEXT<0xE0!><UNK! {0080}><0x9F!><0xE0!>READMOTOR<UNK! {0080}><0x9F!><0xE0!>READENDCLSREMXOR<UNK! {0080}><UNK! {0080}>STOPEND<UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}>REM<0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!>CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXT<UNK! {00F8}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXTXOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXTXOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>ENDXOR"
  35. 330  A$(17)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}>END<UNK! {0080}><UNK! {0080}><UNK! {0080}>LET<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}><0x9F!><UNK! {00F8}><UNK! {0080}>COLORSTEPXORREAD<UNK! {00FC}>SAVE<UNK! {0080}><0x9F!><UNK! {FFF0}>NEXT<UNK! {FFFF}><UNK! {0080}><0x9F!><UNK! {00F5}><UNK! {00F8}>END<UNK! {FFAF}>CLSREM<UNK! {00FA}><UNK! {FE80}><UNK! {FEC3}>XORNEXT<UNK! {00F8}>DEFDBL<0xE0!><0x9F!><0xE0!><UNK! {FE80}>KILL<UNK! {00F8}>NEXT<UNK! {00F8}>REM<UNK! {00F8}>NEXT<UNK! {00F8}><0x9F!><UNK! {00F8}>NEXT<UNK! {00F8}><0x9F!><UNK! {00FC}>END<UNK! {00FC}>REM<UNK! {FF80}>MID$<UNK! {FFF0}>REMCLS<UNK! {00FC}>LEFT$<UNK! {00FC}>REM<0xE3!><UNK! {00F8}>READXORLOADREM<0xE0!><0x9F!>MOTORXOR<0x9F!><0xE0!><0x9F!>BLOAD<UNK! {00F8}>REM<UNK! {00F8}>READ<0xE0!><UNK! {00FC}>READ<UNK! {FF80}><UNK! {00FC}>READCLSCOLORLLISTEND<UNK! {00F8}>REM<UNK! {0080}>PALETTE<UNK! {0080}><UNK! {00FC}>READCLSOUTREAD<0xE0!>REMCLS<UNK! {0080}>NEXTSCREENLINE<UNK! {0080}>RETURN<UNK! {0080}><UNK! {0080}>END<UNK! {FFF0}><UNK! {0080}><UNK! {0080}>NEXT<UNK! {FFDC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>REM<UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}>OUT"
  36. 340  A$(18)="CLS<0xE0!>POKELOADLINE<UNK! {0080}>LLISTNEXTREMPSETLET<0x9F!>BLOADPRESET<0xE3!>DIMREMMOTOR<0xE3!>=RETURN<0x9F!>MOTORBLOAD<0xE3!>DIMREM<0xE1!><0xE3!><0xE3!>PRESETREMXOREQVEQV<0xE3!>PSET<UNK! {00F8}>OPTIONLOADXOR<0xE3!>LLISTRETURNRETURNPOKEOPTIONORBLOADNEXTTAB(RESTORECLOSEFNMOTOR<0xE3!>NEXTLPRINT<0xE4!>OPTIONOUT<0xE0!>CALLCONTPSETREADRESTOREDIMWRITEOPTIONXOREQVCLS>=PSETREADOUTRESTORECOLOR<UNK! {00F8}>LINEWHILEUSRMOTOROFFPRESETNEXT<0x9B!>POKE<0x9B!>TOLINERANDOMIZE<UNK! {00F8}>MOTORTO<0xE3!>NEXTKEYMOTORTHENANDOUTOUTRESTORERESTOREANDXOR<<0xE0!><0xE0!>>ORPSETPSETDIMDIMDIM<UNK! {00FC}>LOADOPTIONLINELINEERROR<0xE3!><0xE3!><0xE3!>NEXTFORSAVELLIST<0x9F!>OUTPOKE<0x9B!>EQVEQVEQVEQVBLOADPMAP<0x9F!>DIMRUN<0x9F!>MOTOR<0xE3!><0xE0!><0xE0!>ERRORXORLINE<UNK! {00F8}>POKE<0x9F!>XOROPTIONOUTRESTOREREM<UNK! {00F8}>OUTRETURNREADNEXT<UNK! {00F8}>RETURNREADNEXT<0xE1!><UNK! {00F8}>RETURNREADNEXT<0xE0!><UNK! {00F8}>RETURNREMREAD<0xE1!>XOROUTRETURNREMBLOAD<0xE0!>XORLOADLLISTLLISTREADNEXT<0xE0!>XORXORLOADLLISTREAD<UNK! {00F6}>NEXTNEXT<0xE0!><UNK! {FDE0}><UNK! {0080}>OPTIONCOLOR<UNK! {0080}><UNK! {0080}>END<UNK! {FF80}><UNK! {0080}>END<UNK! {FF80}><UNK! {0080}><UNK! {0080}>PEN<UNK! {0080}>END<UNK! {FE80}><UNK! {0080}>NEXT<UNK! {00FC}>"
  37. 350  A$(19)="<UNK! {00F8}><UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}><UNK! {00F8}>OPTIONOPTIONLINESAVEBLOADBLOADBSAVERUN/OUTOUTLINEMOD<0xE1!><0xE3!>PRESETREMSAVELLISTOUTOPTIONMODEQVMODBLOADPSET<0x9F!>PRESETRETURNOUTCONT<UNK! {00FC}>LINEEQVBLOADPRESET<0xE1!>PRESETPSETRETURNCOLORINPUTOUTPOKEMOD<UNK! {00FC}><0xB4!>XOR<0xE3!>STEP<0xE1!><0xE3!>PRESETRETURNCOLORGOSUBOUTPOKE<UNK! {00FB}><UNK! {00F8}>OPTIONLINESPC(MID$READLOCATEDEFDBLXOROPTIONLOAD<0x9F!>MID$BLOAD<0xE1!><UNK! {FFF0}>OUTOUT<0x9F!>ANDEND<UNK! {0080}>END<UNK! {FFE0}><UNK! {0080}>REM<UNK! {FFF0}><UNK! {0080}>READ<UNK! {FF80}><UNK! {0080}>OUT<UNK! {0080}><UNK! {0080}>NEXT<UNK! {FE80}><UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}>NEW<UNK! {0080}><UNK! {0080}><UNK! {0080}>DIMEND<UNK! {0080}><UNK! {0080}><UNK! {0080}>FORERL<UNK! {0080}><UNK! {0080}><UNK! {0080}>STOPENDSTOP<UNK! {0080}><UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>GOSUBBSAVE<UNK! {0080}><UNK! {0080}>STOPAUTOSTOP<UNK! {0080}>ENDERASELET<UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}>WEND<UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}>TRON<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}>DATAELSE<UNK! {0080}><UNK! {0080}><UNK! {0080}>INKEY$<UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}><UNK! {0080}>LISTOPENFORNEW<UNK! {0080}><UNK! {0080}>WIDTHSTOP<UNK! {0080}><UNK! {0080}>END<UNK! {0080}>NEW<UNK! {0080}>RUNPOINT<UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WAIT<UNK! {0080}><UNK! {0080}><UNK! {0080}>CLSEND<0xE0!><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}>SWAP<UNK! {0080}><UNK! {0080}><UNK! {0080}>MOTOR"
  38. 360  A$(20)="CLS<UNK! {0080}>WIDTHMOTORMERGESTOPTOWIDTH<UNK! {0080}><UNK! {0080}>PRESETSTEP<UNK! {00F5}><UNK! {0080}><UNK! {0080}>COLORLOCATE<UNK! {0080}><UNK! {00FC}><UNK! {0080}>COLORXORDATA<UNK! {0080}>DIMREM<UNK! {0080}>COLOR<0xE0!><UNK! {0080}>READ<UNK! {FDC0}><UNK! {0080}><UNK! {0080}>READSCREEN<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXT<UNK! {FFE0}>REMMOTOR<UNK! {FE80}><UNK! {00FC}>REMXORREADXORCOLOR<UNK! {0080}>COLOREND<UNK! {00F8}>NEXT<UNK! {00F8}>REM<0xE0!>REM<0xE0!>COLORCLS<0x9F!>CLS<UNK! {FE80}>SAVEEND<UNK! {FE80}>SYSTEM<UNK! {00FC}><UNK! {0080}><UNK! {00FC}>NEXT<UNK! {FE80}>SAVENEXT<UNK! {FF80}><0x9F!><UNK! {0080}><UNK! {FFE0}>READXORCOLOR<UNK! {00F8}>END<UNK! {00FC}>READ<UNK! {00F7}><UNK! {0080}><0x9F!><0xE0!>SAVEPOKEENDSYSTEMEQV<0xE0!>READXORREMMOTOR<UNK! {0080}><0x9F!><0xE0!>SAVEDIM<UNK! {0080}>COLORCLS<UNK! {00FC}>DIM<UNK! {0080}><UNK! {FF80}><UNK! {00FC}>RESTOREEND<UNK! {FE80}><UNK! {00F8}>RESTORE<UNK! {0080}><UNK! {FF80}>OPTIONRETURN<UNK! {0080}>COLORCLSOUTREM<UNK! {0080}>COLORCLSRETURNREADCLS<0x9F!><0xE0!>READNEXTCLSREMXORRETURNREAD<0xE0!>READXORRETURNREAD<0xE0!>REM<0xE0!>LLISTREADCLS<0x9F!>CLS<UNK! {00F8}>REM<UNK! {0080}>SAVENEXT<0xE0!>LOADNEXTXORLLISTNEXT<0xE0!><0x9F!>END<0xE0!>LOADEND<0xE0!>OPTIONREMCLS<UNK! {0080}>DIMEND<0xE0!><UNK! {0080}>ENDEND<UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}><UNK! {0080}>LOAD<UNK! {0080}><UNK! {0080}><UNK! {0080}>XOR<UNK! {0080}><UNK! {0080}>END<0xE0!>"
  39. 370  A$(21)="<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!><0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLORCLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FFC0}>LET<UNK! {0080}><UNK! {0080}><UNK! {FFC0}>WAIT<UNK! {0080}><UNK! {0080}><UNK! {FF80}>SAVEWIDTHENDFILES<UNK! {00FC}>CLSREM<UNK! {00F8}>READ<UNK! {00FA}><UNK! {0080}>COLOR<0xE0!>COLOR<UNK! {00F8}>ENDFILES<UNK! {FFE0}>REM<UNK! {00F8}>REM<UNK! {FF80}>COLORCLS<UNK! {FFFC}>ENDSYSTEM<UNK! {FFF0}>REMXOR<0x9F!><UNK! {FFC0}>COLORCLS<UNK! {FFFE}>ENDSYSTEM<UNK! {FFFC}>NEXT<UNK! {00F8}>READ<UNK! {FFF8}>NEXT<UNK! {00F8}>REMOR<UNK! {00F8}>READ<UNK! {00F8}>READ<UNK! {00F7}><UNK! {00FC}>NEXT<UNK! {00F8}>READOR<UNK! {00FC}>END<UNK! {00FC}>READMOD<UNK! {FE80}>SYSTEM<UNK! {00FC}><UNK! {FF80}>COLORCLSLOAD<UNK! {FFE0}><0x9F!><0xE0!><0x9F!>REMXORREAD<UNK! {00F8}>READMOD<UNK! {00F8}>NEXT<UNK! {00FC}>NEXT<UNK! {FFFC}>NEXT<UNK! {00FC}>END<UNK! {00F9}><UNK! {00F8}>NEXT<UNK! {00FC}>END<UNK! {00F8}>XORREAD<UNK! {00F8}>READ<0xE1!>CLSREM<0xE0!>SAVE<UNK! {0080}><UNK! {0080}>SAVENEXTCLS<UNK! {0080}>NEXT<0xE0!><UNK! {0080}><UNK! {0080}><UNK! {00F8}><UNK! {0080}><UNK! {0080}><UNK! {FFFC}><UNK! {0080}><UNK! {0080}>REMXOR<UNK! {0080}><UNK! {0080}>END<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!>XOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>LOAD"
  40. 380  A$(22)="<UNK! {FFE0}><UNK! {0080}><UNK! {0080}><UNK! {0080}>READ<UNK! {FF80}><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLOR<<UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXT<UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}>READ<0xE5!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!>SCREEN<UNK! {0080}><UNK! {0080}><UNK! {0080}>FORSPC(<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DIM<0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WAITCLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>RESUME<UNK! {0080}><0x9F!>CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}>ENDDEFSNG<UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}>POKE<UNK! {0080}>ENDLIST<UNK! {0080}>INPUTMKD$DATA<UNK! {0080}>REM<UNK! {00FC}><UNK! {0080}>RESTORE<UNK! {0080}>REM<UNK! {00F8}>REMXOR<UNK! {0080}><0x9F!>XORCOLOR<0xE3!><UNK! {0080}><UNK! {FFC0}><UNK! {FFB8}>END<UNK! {00FC}>READ<UNK! {FFC0}><0x9F!><0xE0!>COLOR<UNK! {FE80}>LEFT$<UNK! {FFF8}>NEXTSYSTEM<UNK! {FFF0}>READ<UNK! {00FC}>READ<UNK! {FFE0}>READ<UNK! {00F8}>READ<UNK! {FFE0}>READ<UNK! {00F8}>READ<UNK! {FFF0}>READ<UNK! {00FC}>NEXT<UNK! {FFF0}>READ<UNK! {00FC}>NEXT<UNK! {FFF8}>END<UNK! {FE80}>COLOR<UNK! {FE80}><UNK! {FF80}>READ<UNK! {FF80}><0x9F!>XOREND<UNK! {FFF0}>NEXT<UNK! {00FC}><UNK! {0080}>COLOR<UNK! {00FC}><UNK! {0080}><UNK! {FFC0}>READ<UNK! {FFC0}>REMXOR<UNK! {0080}><UNK! {FFF0}>NEXT<UNK! {FE80}>READ<UNK! {FF80}>COLOR<0xE0!><UNK! {0080}>COLORXORNEXT<UNK! {00FC}><UNK! {0080}>READ<UNK! {FE80}>COLORCLS<UNK! {0080}>COLOR<0xE0!>REMXORSTOPREM<UNK! {00F8}>END<UNK! {00FC}>RETURNEND<UNK! {FE80}>COLORREADCLSCOLOR<UNK! {0080}><0x9F!>NEXT<0xE0!><0x9F!>CLSREADBLOADXORRETURN<UNK! {0080}>NEXTNEXTXORFOR<UNK! {0080}><UNK! {0080}>READXORRESTORE"
  41. 390  A$(23)="USR<UNK! {0080}><UNK! {0080}><UNK! {FE80}>LINEREAD<UNK! {00F8}>REMREADBLOADXOROPTIONOUT<0x9F!>SCREENOPTIONLOAD<0x9F!><0xE0!>XORXOR<UNK! {00FB}>EQV<0xE1!><0xE1!>=<0xE1!>EQVXORWRITEXOR<UNK! {00F8}><UNK! {00F8}>MERGE<UNK! {00F8}>LOADLLISTREMTAB(READBLOAD<0xE0!>XOR<UNK! {0080}>OPTIONWIDTH<UNK! {0080}>POKE<UNK! {0080}>REM<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {0080}><UNK! {0080}>CLSNEXTXORLLISTREADBLOAD<UNK! {00F8}>REMBLOADXOR<UNK! {00FC}>NEXT<0xE1!><UNK! {00F8}><0x9F!>CLS<UNK! {00F8}>OUTREM<0xE0!>RETURNREADMOTOR<UNK! {00F8}>NEXT<0xE1!>XORCOLORCLSSAVEREADCLSSAVE<UNK! {0080}>FILESMOD<UNK! {00F8}>NEXT<UNK! {00F8}>NEXT<UNK! {FFC0}>REM<0xE0!>READ<UNK! {FF80}>COLORCLSREAD<UNK! {FE80}>COLORCLSREAD<UNK! {00FC}><UNK! {0080}><UNK! {FFC0}>NEXT<UNK! {00FC}><UNK! {0080}><0x9F!><0xE0!><UNK! {0080}><UNK! {FD80}>READ<UNK! {00FC}><UNK! {0080}>REMXORNEXT<UNK! {00F8}><UNK! {0080}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {FE80}>WIDTHSAVE<UNK! {0080}><UNK! {FF80}><UNK! {0080}><0x9F!><UNK! {0080}><0x9F!>CLSRUNREMCLS<0x9F!><0xE0!>DIMREAD<0xE0!>READXORFORNEXT<UNK! {00F8}>NEXT<UNK! {00F8}>NEXTMOTOR<UNK! {00FC}>END<UNK! {00FC}>NEXTCLS<UNK! {FE80}><UNK! {00FC}>NEXT<0xE0!>COLOR<UNK! {0080}>SYSTEMXOR<0x9F!>CLSSAVENEXT<0xE0!><0x9F!><UNK! {0080}>SYSTEMXOR<0x9F!><UNK! {0080}>SYSTEM<0xE0!>SAVEEND<UNK! {00F8}>READCLS<UNK! {00F8}>READXORLLISTNEXT<0xE0!><0x9F!><UNK! {0080}><UNK! {00F8}>LLIST<UNK! {0080}><UNK! {00F8}>READ<0xE0!>XORREADCLSPOKEOUT"
  42. 400  A$(24)="XORLINE<0xE0!>SOUNDLOADPOKEXOR<0xE1!>PRESET<0xE1!>READRETURNRESTORECOLORDIMOUTOPTIONWHILE<UNK! {00FC}>POKEEQV<0xE1!>PRESETXOR<0xE3!>BLOADRETURN<0x9F!>BLOADREMRESTOREOPTIONSHELLPOKEEQV=EQVEQV<0xE1!>READIOCTLOUTIF<0x9F!>NEXTBLOAD<0xE0!>XOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>LOAD<UNK! {0080}><UNK! {0080}>XORNEXTRUN<0xE0!>OPTIONONWIDTHLET<UNK! {0080}><UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}><UNK! {0080}>FORMOTORLETENDDATA<UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}><UNK! {0080}>LET<UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTHEND<UNK! {0080}><UNK! {0080}>ENDGOTOSTOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTHCLSFOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}>LET<UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}>END<UNK! {0080}>DEFINT<UNK! {0080}><UNK! {0080}>SWAP<UNK! {0080}>CLSLET<UNK! {0080}>DATACLS<UNK! {0080}><UNK! {0080}>DATAWIDTH"
  43. 410  A$(25)="<UNK! {00F8}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>LOAD<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {00FC}><UNK! {0080}>WIDTH<UNK! {0080}>WIDTHREADXORNEXT<0xE0!><0x9F!><UNK! {0080}>FILESXOR<0x9F!><UNK! {0080}><0x9F!>MOTOR<0xE0!>LOADREADMOTORXORLOADLLISTRETURNRESTORELLIST<0x9F!>READREADCLS<0xE1!><0xE3!>EQV<0xE3!>RETURNRETURNRESTORELLISTOUTWHILEBLOADXOR<0xE3!>EQVPSETPOKEMODRETURNLLISTPOKE<0xE3!>RETURNLINE<0xE3!>MODPSETRESTORE=RETURNDEFSNGOPTIONCONTTOOPTION<0xE3!>MODENDLET=PSETLLISTOPTIONPRINTRESTORE<UNK! {00F8}><0xE2!>=DIMCALL=RETURNRESTOREWHILESOUNDRANDOMIZEEQVBLOADTOPOKE=<0x9F!>POKERANDOMIZEMODRESTORECALLEQVREADLLISTLINE=SAVESTOPEQV=RESTOREWRITE<0xE2!>TAB(POKELINESTEPOPTIONRANDOMIZEMODPSETPOKETIME$POKELINENEXT<0x9F!>BLOADPRESETSTEPDIMREMXORXOREQV<0xE1!><0xE3!><UNK! {00F8}>LOADLOADOUTREADINSTROUT<0x9F!>READNEXTXORLLISTREMNEXTBLOADXORLOAD<0x9F!>READPRESETCLS<UNK! {00F8}>SAVEREAD<UNK! {00F8}>READ<0xE1!><UNK! {00F8}><0x9F!>CLSLOADREMMOTOR<UNK! {00FC}>NEXT<0xE0!><UNK! {00FC}>REMCLSLOADREMMOTOR<UNK! {00F8}>READMOTOR<UNK! {00F8}>LLISTENDXORLLISTREADCLSOPTIONREMNEXT<0xE0!>OUTREADMOTOR<UNK! {00FC}><UNK! {0080}><UNK! {0080}>OPTIONINPUT<UNK! {0080}><UNK! {0080}>DATAFOR<UNK! {0080}><UNK! {0080}>ENDANDCLS<UNK! {0080}><UNK! {0080}>DEFDBLCLS"
  44. 420  A$(26)="USR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>+<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>USR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>REM<0xE0!><UNK! {0080}>WIDTHSTOPREAD<0xE0!>OPTION<UNK! {FFE0}>REMCLS<UNK! {00FC}><UNK! {FFC0}><UNK! {00FC}>READBLOAD<UNK! {00FC}>NEXT<0xE1!><UNK! {00F8}>COLOR<UNK! {0080}>LOADLLISTREM><UNK! {00FC}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><0x9F!><UNK! {0080}>REMCLSREM<0xE0!>READ<0xE0!>READXORNEXT<UNK! {00F8}>NEXT<UNK! {00F8}>END<UNK! {00FC}>END<UNK! {00FC}><UNK! {0080}>FILES<UNK! {FE80}>SAVE<UNK! {0080}><UNK! {FE80}>COLOR<UNK! {0080}>COLORCLSREM<0xE0!>REMXORNEXT<UNK! {00F8}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {FF80}><UNK! {FFC0}>REMXORREM<UNK! {00F8}>NEXT<UNK! {00FC}>NEXT<UNK! {FE80}>COLORCLSCOLOR<0xE0!>READXORREAD<UNK! {00FC}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}>COLORCLSREMXORREAD<UNK! {00FC}><UNK! {0080}><UNK! {FE80}>COLORCLS<0x9F!><0xE0!>READ<UNK! {00F8}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}>COLORCLSREMXORREAD<UNK! {00FC}><UNK! {0080}><UNK! {FE80}>COLORCLS"
  45. 430  A$(27)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}>NEXTXOR<UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}>END\<UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}><UNK! {0080}>OPTION<UNK! {0080}>FOREND<UNK! {0080}><UNK! {0080}>LLIST<UNK! {0080}>FORWENDSTOPCLSCOLORCLS<UNK! {0080}><0xE0!>MOTOR<UNK! {0080}><UNK! {00FC}><UNK! {0080}>DIMCLSOUTREAD<UNK! {00F8}>ENDDEFINTELSEEND<UNK! {FE80}><UNK! {00F8}><UNK! {0080}>WIDTHCOLORCLSINKEY$<UNK! {0080}>XOR<0x9F!><0xE0!>COLORENDXOR<0x9F!>CLSCOLORENDLINE<0x9F!>CLSCOLORENDXOR<0xDF!><UNK! {0080}><UNK! {00FC}>INPUT<0xE1!>SAVEENDXORDEFBLOAD<UNK! {00FC}>IF<0xE4!>'NEXT<UNK! {00F8}>REMFOR<0xE1!><0xCB!><UNK! {00FA}>DEFSNGIFMOTORMOTOR<UNK! {00F8}><0x9F!>NEXTXOR<0xE0!>PAINTMOTOR<0xE4!><UNK! {00F8}><0x9F!>NEXTMOTOR<UNK! {00F9}>LLISTDEFFNXORSAVEDEFBEEPXORKILL>XORKILL<0xE0!><UNK! {00F8}>SAVEREADXOR<UNK! {00FA}>REMREADFORCOLORNEXTCLS<UNK! {00F8}><UNK! {00FC}>POKE<UNK! {00FC}>DIMNEXTNOTXOREQV<UNK! {00FC}>ANDRETURNDIMNEXTMOD<UNK! {00F8}><UNK! {00FC}><0xB6!><0x9F!>IFFN<UNK! {00F8}>XOROPTIONOUTRETURNRESUMEMKDIRRETURNREADPRINTNEXTRETURNPRESETENDBLOADXORPOKEWHILE\OPTIONRETURN<0x9F!>LET=REMTROFFCLSEQVXOROPTIONRESTOREOUTREADEND<0xE1!><0xE0!>OPTIONRESTOREOUTREADCLSEQVXOROPTIONRETURNRETURNEND<0xE0!>OPTIONOPTIONRETURNENDNEXT<0xE0!>OUTREADREADCLS<UNK! {0080}>LINELOADNEXTCLSMOTOR<0xE0!>"
  46. 440  A$(28)="<UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!>CLSENDCLSREADCLSDIM<UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {0080}>END<UNK! {00FC}><UNK! {0080}>XORNEXTXORLLISTNEXT<UNK! {FE80}>SAVEREAD<0xE0!>LOADREM<UNK! {00F8}>REMMOTOR<UNK! {00F8}><UNK! {0080}><UNK! {00FC}>NEXT<0xE0!>SAVENEXTBLOADXORLLISTREAD<0xE1!><UNK! {00FC}>LLIST<0x9F!>BLOAD<0xE3!>XOR<0xE3!><0xE3!><UNK! {00F8}>EQV=RESTOREOPTIONANDPOKEMOD=RETURNDEFRESTORERESTORE<0xE3!>READIFTAB(RETURNCALLCALLKEYPSETPSETOPENRANDOMIZE<0xE1!><0xE3!>=RESTORESWAP\<0xE1!><0xE3!>TOPOINTOPTION<UNK! {00F8}><0xE1!>PRESETEDITLOAD<UNK! {00F8}>EQV=SOUNDLOADPOKEWHILE<UNK! {00F7}>LOCATELOADLLISTRESUMEWHILEMODDIM<0xCB!>DATAOUT<UNK! {00F8}><0xE1!>IMP<DIMINKEY$<UNK! {0080}>REM><UNK! {0080}>DIM<UNK! {00F8}>WIDTH<UNK! {FFE0}><UNK! {0080}>COLORCLSNEXT<UNK! {FE80}>READ<UNK! {00FC}><UNK! {0080}><0x9F!><UNK! {00F8}><UNK! {0080}><0x9F!>XORWIDTHCOLORXOR<UNK! {0080}>COLOR<0xE0!><UNK! {0080}>COLORUSR<UNK! {0080}><0x9F!><0xE0!><UNK! {0080}><0x9F!>XOR<UNK! {0080}>REM<UNK! {00F8}>FORNEXT<UNK! {FE80}>END<UNK! {FF80}>STOP<0x9F!><0xE0!><UNK! {0080}>REM<0xE0!>FOREND<UNK! {FE80}><UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}>NEXT<UNK! {00FC}><UNK! {0080}>END<UNK! {FE80}><UNK! {0080}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}>END<UNK! {FE80}><UNK! {0080}><0x9F!><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}>RETURN<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {0080}>GOTO"
  47. 450  A$(29)="CLS<UNK! {0080}>NEXTLETXOR<0xB5!><UNK! {0080}>END<UNK! {0080}><UNK! {0080}>WIDTHSCREENMOTORENDEND<UNK! {0080}>END<0xE0!><UNK! {0080}>BSAVECLSFORIMP<UNK! {0080}><UNK! {0080}>NEWENDELSESTOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DEF<UNK! {0080}>NEWLET<UNK! {0080}>READ<UNK! {00F8}>LLISTRENUM<UNK! {00F8}><0x9F!>MOTORXORCOLOR<0xE0!>KILLMOTOR<UNK! {00F9}>READ<UNK! {00F8}>LLISTREM\<0x9F!><0xE0!><UNK! {00F8}><0x9F!><0xE0!>COLORMOTORXORSAVE<0xE0!>MID$<0xE0!>INPSAVEMOTORXORSAVESCREEN<0x9F!><UNK! {0080}>\REMBSAVENEXTXORLLISTREMEQVWIDTHKILL<0xE0!><0xFD8A!>NEXTXORLLISTNEXTXORPOKEREM<0xE0!><UNK! {00FC}>READ<0xE0!>XORCOLOREND<UNK! {00F8}>REM<0xE0!>XOR<0x9F!>CLS<UNK! {00FC}><0x9F!>CLS<UNK! {00F8}>REM<0xE0!>OPTIONREM<0xE0!>LOADREADXOR<0x9F!><UNK! {0080}>KILL<0xE0!>LEFT$<UNK! {00FC}>READXOR<0x9B!>NEXT<UNK! {00FC}>NEXTXOR<0x9F!>CLSLINENEXT<UNK! {00FC}>NEXT<0xE0!><0x9F!><0xE0!><UNK! {0080}>ENDFILESXORREM<0xE0!>LINE<UNK! {0080}><0x9F!><0xE0!>RESTORE<UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {0080}>LINECOLORCLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>READ<UNK! {00FC}><UNK! {0080}><UNK! {0080}>ENDXOR<UNK! {0080}><UNK! {0080}><UNK! {0080}>POKE<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>XOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA"
  48. 460  A$(30)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>LINE<UNK! {0080}><UNK! {0080}>DATAENDWIDTH<UNK! {0080}><UNK! {0080}><UNK! {0080}>FORUSRWIDTH<UNK! {0080}>REM<0xE0!><UNK! {0080}>MOTOR<UNK! {00F8}>REMDATADIMREAD\ENDAUTOIFNEXTXORDATA<UNK! {00F8}>RESTOREREMCLSIFXOR<0xE0!><UNK! {FE80}>/<0xCB!>NEXTXORREAD<0xE0!>LINE<0x9F!>ENDSAVENEXTNEXT<UNK! {00F8}>NEXTXORCONT<0x9F!>CLS<0x9F!>NEXTMOTORCVDXOROUTSTEPXORDEFDBLKEYSWAP<0xDF!>INPUT<UNK! {00FA}>DEFSNGIFXORSTEPERASEXORLEFT$<UNK! {00F5}>STRING$IF\LLISTSTRING$XORSAVEBLOAD<UNK! {00F8}>*IF<UNK! {00F8}><0x9F!>INPUTLINE<0x9F!>BSAVE<UNK! {00FA}>CSRLINMOTOR<UNK! {00FC}>READUSRPOINTREM<0xE0!>COLORIFXOR<0x9F!>ENDLOADIFCLSFILES\<0x9F!>MOTORCVI<UNK! {00F8}>REMENDSYSTEM<UNK! {00F8}><0x9F!>ENDSYSTEM<UNK! {00F8}><0x9F!>CLSLEFT$<UNK! {00FC}>REM<0xE0!>COLORCLS<UNK! {00FC}>READ<UNK! {00F8}>REMXORREMCLS<UNK! {00FC}><UNK! {0080}>FILES<UNK! {00FC}>REM<0xE0!>NEXT<UNK! {00F8}><UNK! {0080}>XORREM<UNK! {0080}>END<UNK! {FE80}><UNK! {00FC}>READCLS<UNK! {0080}>COLORCLS<0x9F!><UNK! {0080}>XORDIMNEXT<UNK! {00FC}>END<UNK! {00F8}>READCLSLETNEXT<UNK! {00F8}>END<0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {00FC}>"
  49. 470  A$(31)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTHSTOP<UNK! {0080}>WHILE<UNK! {0080}>ENDLINESTOPWIDTH<0xE2!>LET<UNK! {0080}>DATAEQVLETDIM<UNK! {0080}><UNK! {0080}>COLOR<UNK! {00F8}><0xE0!>PAINTREADXOR<UNK! {00FC}>READBLOADXOR<UNK! {00FC}>READBLOADXORSAVEREADBLOADXOR<UNK! {00FC}>READ<0xE3!>XORSAVENEXT<0xE1!><UNK! {00F8}><0x9F!>END<UNK! {00F8}>LOADREMCLS<UNK! {00FC}><0x9F!>NEXTXORLLISTREM<0xE0!><UNK! {00F8}>READBLOAD<LLISTENDXOR<UNK! {00F8}>READ<0xE0!>LOADSAVEENDXORREMREADCLSLLISTEND<0xE1!><UNK! {00F9}>READ<0xE0!>LOADLLISTLETLOADREADBLOAD<0xE1!>BLOAD<0xE0!>OPTIONSAVERESTORELLISTNEXT<0xE3!>XORWHILE<UNK! {00F8}>LLISTREMNEXTPRESETCLSXOR<UNK! {00FC}>SAVEREMNEXTCLSXORPMAPREADMOTOREQV<UNK! {00F8}>RETURNTROFFCLSMOD<UNK! {00F8}><0xE3!><UNK! {00F8}>XOROPTIONLOADRESTORECOLORLLISTREADNEXTMOTOR<0xE3!>EQV<0xE0!>XOR\OPENLPRINTRETURNPRESETNEXTEQVTAB(COLORLPRINTRETURNREAD<0xE3!>WEND<0x9F!>LPRINTPSETPRESET>TROFFSTEP=<0xE3!>MOD<UNK! {00FB}>POKEEQV<UNK! {00F8}><UNK! {00FC}>LOADSAVE<0xB6!>READ<0x9F!>REMPRESETBLOAD<0xE3!>CLS<UNK! {00F8}><UNK! {00FC}>LOADLLISTREADREAD<UNK! {0080}><0xE3!><UNK! {00F9}><UNK! {00F8}>OUTREMRESTOREMOTOR<0xE3!>EQV<UNK! {00F8}>OUTLLISTRESTORENEXT<0xE3!><UNK! {00F8}><UNK! {00F8}>RESTOREREMEND<UNK! {0080}>XOR<UNK! {00FC}>RETURNDIMREAD<0xE0!><UNK! {0080}>RESTOREREADXORWIDTHDIMLLIST<UNK! {0080}><UNK! {0080}><0x9B!><UNK! {0080}>POKE"
  50. 480  A$(32)="CLS<UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}>LETWIDTHOUT<UNK! {0080}>=<UNK! {FE80}><UNK! {00FC}>OPTIONOPTIONOPTIONRESTOREELSEREADCALLBLOADNEXTBLOADPRESETOUTPSETPOKEOPTIONWHILESPC(CONTPSETRETURNOUTCALLSCREENPSETRETURNOUTRANDOMIZETO=RESTORELOAD<UNK! {00F9}>CONTCONT<0xE1!>PRESETRETURNWRITE>POKELINE<0xE3!>TO<UNK! {00F9}><0xE3!>DIMRESTORERANDOMIZESTRING$OUTLINE<0xE1!>BLOADOUT<0xE3!>STEPOUTPOKEWHILETAB(RANDOMIZEMOD<0xE3!>TOCLOSEPRESETLLISTOPTIONLINE<0xE3!><UNK! {00FC}>MOD<0xE3!>PRESETREAD<0x9F!>DIMLOADOUTOPTIONOPTIONXORELSE<0xE3!><0xE1!>BLOADPRESETPSETLLISTSAVELLISTLLISTDELETE<0xE1!>XORXORRANDOMIZE<UNK! {00FC}>RESTORELLISTREMREADBLOAD<0xE1!>BLOADXOR<UNK! {00F8}><0x9F!>NEXTRESTOREREMMOTORUSRRANDOMIZE<UNK! {0080}>LINE<0x9F!>CLS<UNK! {0080}><UNK! {0080}>CLSLINE<0x9F!>CLS<UNK! {0080}>GOTOSTOPLINE<0x9F!>CLS<UNK! {0080}>NEXTDATAPOKEREM<0xE0!><UNK! {0080}>WIDTH<UNK! {0080}>RESTOREREAD<UNK! {00F8}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {FE80}><UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}>COLORCLS<UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}>READ<UNK! {00F8}><UNK! {0080}>FOREDITDIMEND<UNK! {00FC}><UNK! {0080}>LETSCREEN<UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}>SOUNDFORWIDTH<0x9F!><<UNK! {0080}>DEFUSRPOKEREM<UNK! {00F8}><UNK! {0080}>RUNPOKEDIMNEXT<UNK! {00F8}><UNK! {0080}>REM<ENDMOTOR<UNK! {00FC}><UNK! {0080}>READ<UNK! {00F8}>NEXTBLOAD<UNK! {00F8}>LOADREMSTEPEND<0xE1!><UNK! {00FC}>LLISTREADPRESET<0xE0!>OUTREM<0xE3!>"
  51. 490  A$(33)="CLSMOTORDATAWIDTHSTOPSWAPSCREEN<UNK! {0080}>LINESTOPDATA<UNK! {0080}><UNK! {0080}>GOTO<UNK! {0080}><UNK! {0080}><UNK! {0080}>MOTOR<UNK! {0080}>LET<UNK! {0080}><0xE2!>DATA<UNK! {0080}><UNK! {0080}>LETCLEARSWAPDATA<UNK! {0080}>MOTORNEWPOKEENDCLSCLSLISTDATACLSFOR<UNK! {0080}>GOTOSCREENCLSEND<UNK! {0080}>LETWIDTHSTOPBSAVELET<UNK! {0080}>ENDSWAPRESUME<UNK! {0080}>ENDSTOPCLSDELETEINPUTENDSWAP<UNK! {0080}><UNK! {0080}>LETWIDTH<UNK! {0080}><UNK! {0080}>NEXT<0xE0!><UNK! {0080}>PALETTECLSREM<0xE1!><UNK! {00FC}>LLISTPOKE<0x9F!>BLOAD<0xE1!><UNK! {00F8}><0xE1!><UNK! {00FC}>OUT<0x9F!>BLOADBLOADXOR<UNK! {00F8}>SAVEREMREM<0xE1!>XOR<UNK! {00F8}>OPTIONSAVEREMREAD<0xE1!><0xE1!><UNK! {00FC}>LOADREMNEXTBLOADXORLOAD<0x9F!>READRENUM<OUTREADNEXTMOTOR<UNK! {00F8}>RETURN<UNK! {0080}>READCLS<UNK! {0080}>-<UNK! {0080}><UNK! {0080}>LET<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEW<UNK! {0080}>CLS<0xB4!>CLEARCONT<0xB4!><UNK! {00F8}>RUN<0xE1!>DATAINPUTDATABLOADLETFNCLEARRUN<0x9A!>DEFSTRCLSINPUTENDTRONNEWSTRING$RESUMEMOTOR<0xE0!><0xE1!>SOUNDDEFSNGERL>CSRLINDELETEEND<0xB4!>+INPUTINPUTPRINT<UNK! {0080}>ELSE"
  52. 500  A$(34)="CLS<UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}>END<UNK! {0080}><UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}>ENDLET<UNK! {0080}><UNK! {0080}>CLSENDPOKELETWIDTH<UNK! {0080}>WIDTH<UNK! {0080}>STOPLINEENDGOSUBNEWSWAPGOTOSCREENWIDTHLETSTOPIFSPC(SWAPSOUNDKEYGOTOBSAVETROFFDATAEDITTOPOKESOUNDCLSSOUNDFORDATADATAFOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}>NEXT<UNK! {FE80}>BLOADXORLOADRETURNDATA<0x9F!>DIMREM<0xE1!>EQV<UNK! {00F8}>XOR<UNK! {00F8}>LLISTSTEPREADPRESETINPUT<0xE0!><UNK! {00F8}>OPTION<UNK! {00F8}>/CALL<0xE1!><0xE1!><0xE3!>MOTORPRESETPRESETREADRETURNREADLLISTOUTOUTLOADOUTLOADOPTIONOPTIONXOROPTION<UNK! {00F8}>XOREQVXOREQVXOREQVMOD<0xE2!>MOD<0xE1!><0xE1!><0xE3!>PRESET=<0xE1!><0xE0!><UNK! {00FC}>RETURNPRINTCLOSERESTOREDATADATALETCLS<UNK! {00FC}>WIDTH<UNK! {0080}>OPTIONWIDTHCLSCOLORPOKE<UNK! {0080}>LPRINTCLSSTOP<0x9F!><0xE0!><UNK! {0080}>DEFSNG<UNK! {0080}>LET<0x9F!>CLS<UNK! {0080}><UNK! {00F7}>MOTOREQV<UNK! {00F8}>LOADREMPRESETBLOADPRESET<0xE3!>XORLOADOUTLLIST<0x9F!>REMNEXTFORXOROUTLOADLLISTINPUTBLOAD<0xE0!><UNK! {00F8}><UNK! {00FC}>LOADNEXT=CLSXOR<UNK! {00FC}>DIM<UNK! {0080}>REMCLSPOKEREMXOR<UNK! {0080}>REMXORRESTOREREM<UNK! {00F8}><UNK! {0080}>NEXT<UNK! {00F8}>DIMEND<UNK! {FE80}><UNK! {0080}>SAVE<UNK! {0080}>WIDTH<0x9F!><0xE0!><UNK! {0080}>READ<UNK! {00F8}>DIMEND<UNK! {FE80}><UNK! {0080}><UNK! {FE80}>STOPREMXOR<UNK! {0080}>END<UNK! {00F8}>"
  53. 510  A$(35)="BSAVERUNENDENDNEWRESTOREREADEND<UNK! {00F8}><UNK! {00F8}>LLISTREMEQV<<UNK! {00FC}>OUTREMREADREMBLOAD<0xE1!><UNK! {00F8}>XOR<UNK! {00FC}>LLISTREMPRESETNEXT<0xE1!>XOR<UNK! {00FC}>OUTREMREADBLOADXOR<UNK! {00F8}>SAVEREMREAD<0xE1!><0xE0!><UNK! {00F8}>LLISTREMBLOADMOTOR<UNK! {00F8}><UNK! {00FC}><0x9F!>DIMREAD<0xE1!>XORSAVEOUTREMBLOAD<0xE0!><UNK! {00FC}>LINEKILLNEXTXOR<0xE1!><UNK! {00FC}>REMREAD<0xE1!>NEXT<UNK! {00F8}><0x9F!>READ<0xE3!>READ<UNK! {00F8}>LLISTREADPSETREAD<UNK! {00F8}><0x9F!>NEXTBSAVEREAD<UNK! {00F8}><0x9F!>NEXTPSETREAD<UNK! {00F8}>READ<0xE0!>USREND<UNK! {00FC}>NEXT<UNK! {00F8}>READ<0xE0!>COLOR<0xE0!><0x9F!>FORBSAVENEXTFILES<UNK! {00FC}>RUNDATANEXT<UNK! {00FC}>END<UNK! {00FA}><UNK! {0080}>REM<UNK! {00F8}>END<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>FNRETURN<UNK! {0080}><POKESTOP<0xE1!>STOPLINEREMKEYTAB(<UNK! {0080}>NEXTRANDOMIZEFORREAD<UNK! {00F8}>LINE<0x9F!><0xE0!>CONT*SCREENPOKE<UNK! {0080}><0x9F!>TAB(DATA<UNK! {0080}>LLISTEND<UNK! {00F6}>STOPOUTON<UNK! {0080}><0x9F!>USRREM\<UNK! {0080}>COLORCLSENDXORLOADNEXT<UNK! {00F8}>READ<UNK! {00FC}><UNK! {0080}>MERGE<UNK! {00FC}>OPTION<UNK! {0080}>NEXTXOR<UNK! {0080}><UNK! {0080}>END<UNK! {00F8}><UNK! {0080}><0xDF!>"
  54. 520  A$(36)="<UNK! {FF80}><UNK! {0080}><UNK! {0080}><UNK! {FFC0}>END<UNK! {FE80}>CLS<0x9F!>XORNEXTXORDIMEND<UNK! {FF80}>READ<0xE0!>STOPREM<UNK! {00F8}><UNK! {0080}>LLISTRESTOREREAD<UNK! {00F8}>READRETURNREADNEXT<0xE5!>XORLOAD<0x9F!>=<0xE3!><0xE4!>REM<0xB4!>'IMP<0xE1!>BLOADDEFSNGRETURNSAVE<UNK! {00FC}>STOP=KEYSTEPLLISTDEFSTRCONTEQVMOD=INKEY$RESTORE<UNK! {00F9}>'MOD<0xE5!>BLOADLLIST<0xB6!>LOAD<UNK! {00F9}>LINE=SCREENPRESET<0xDF!>NEWRESTORE<UNK! {00FB}>CONT<UNK! {00FB}>\BLOADLLISTWENDLOAD<UNK! {00F9}>STOP=KEYSTEPLLISTDEFSTRCONT<UNK! {00FB}>CALL=SPC(DATALLIST<0xE4!><UNK! {00F9}>MERGEMOTOR=BLOADDIMSTEPNEW<0x9A!><UNK! {00FA}>LINE*<0xE1!>END<0xDF!>PSET<0x9F!>MERGE<UNK! {0080}>ON<UNK! {00F8}>ELSE<0xE1!>XORENDCOLORDATA<0x9F!>COLOR<UNK! {0080}><UNK! {00FB}>XORPRESET<UNK! {00F5}>XORREADPUT<0x9F!>STEPCLS<UNK! {FFF8}><0xE1!><UNK! {00FC}>POINTNEXT<UNK! {FFC6}>READ<UNK! {00F5}>XORREAD<UNK! {FF80}><0x9F!><0xE1!>CLSREM<UNK! {00FA}>LET<0x9F!><0xE1!><UNK! {0080}>REM<UNK! {00F8}>RESTOREREM<UNK! {00F8}><UNK! {0080}>NEXTFIELDNEXT<UNK! {00FC}><UNK! {0080}>ENDLEFT$CLS<UNK! {FFC0}><UNK! {0080}>REMXORPOKEREMXOR<UNK! {0080}>NEXT<UNK! {00FC}>NEXTEND<UNK! {FE80}><UNK! {0080}>COLOR<UNK! {0080}>LINE<0x9F!><0xE0!><UNK! {0080}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}>REMXORLETREAD<UNK! {00F8}>LINE<UNK! {0080}>COLORCLS<UNK! {0080}>READ\<UNK! {0080}>END<UNK! {FE80}>ENDNEXT<UNK! {00FA}><UNK! {0080}>DATACLS"
  55. 530  HELLO$="<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FFFE}>RETURNREM<UNK! {FFF8}>OPTION<0x9F!><UNK! {FFC3}>TROFFPRESET<UNK! {00FC}>POKEOUT<0x9F!>XOR<0xE1!><0xE1!>ABSREMRETURN<UNK! {00FC}>POKEOPTIONMODEQV<0xE1!>PRESET<0x9F!>RETURNOUTOPTION<UNK! {00F8}>XOREQV=<0xE1!>BLOADPRESETLLISTLLISTRESTORELOAD<UNK! {00F8}><UNK! {00F8}><UNK! {00F8}><UNK! {00FB}><0xE0!>XORXORCOLOREND<0xE0!>XORLOADREADEND<UNK! {00F8}><UNK! {00F8}>RETURNNEXTMODCLSOPTIONREADPRESET<UNK! {0080}><UNK! {00FC}>REMSTEP<UNK! {0080}><UNK! {00F8}>READSTEP<UNK! {0080}><UNK! {00FC}>NEXTOR<UNK! {0080}>FILES<UNK! {FFC0}>COLOR<UNK! {0080}><UNK! {FFE0}>REM<0xE0!>COLOR<UNK! {00F8}>NEXT<UNK! {00F8}>READ<UNK! {FF80}>FILESOR<0xE0!>LOADLLISTNEXTSTEPREADBLOAD<0xE1!>XOR<UNK! {00F8}>SAVELLISTRETURNREAD<0xE1!><UNK! {00F8}><UNK! {00F8}>POKE<0x9F!><0xE1!>XORXOROPTION<0xDF!><0xE1!>XORXOROPTION<UNK! {FEB0}><UNK! {00F8}>OPTIONOUTCOLORPOKELOADOUTDIMREM>REMREADMOTOR<0xE3!><UNK! {00F9}><0xE1!><0xE0!>XOROPTIONCOLORPOKELOADRETURNREADREAD<0xE3!>READNEXT<0xE1!>XOR<UNK! {00FC}><0xE0!>XORLOADOUTREMINSTRLOADREMREADNEXT<UNK! {00F6}>REMNEXT<0xE1!>XORCOLORNEXT<0xE0!><UNK! {00F8}>LLISTREM<0xE0!>XORLLISTREADPRESETXORLOADREMNEXT<0xE1!><UNK! {00F8}>LLISTREADMOTORXOR<UNK! {00F8}><0x9F!>NEXTMOTOR<UNK! {00F8}>XORSAVEREADMOTORSYSTEM<0xE0!>LOADREMCLS<UNK! {00FC}>READMOTOR<UNK! {00F8}>REMENDXOR<UNK! {00FC}>READ<0xE0!>LOADLLISTENDXORLLIST"
  56. 540  'begin new code- all lines previous from program "TALKER.BAS" origin unknown
  57. 550  CLS:COLOR 2:KEY OFF
  58. 560  C$="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"' acceptable characters- in order.
  59. 570  SP$=" -."+CHR$(8)+CHR$(13):BL$=CHR$(29)+" "+CHR$(29)
  60. 580  C$=C$+SP$
  61. 590  LOCATE 1,1:CLS:FOR W=1 TO 700:NEXT:CALL TALK(A$(15)):CALL TALK(A$(11))
  62. 600  L%=20
  63. 610  PRINT "Query: ";
  64. 620  GOSUB 1000
  65. 630  IF Q$="EXIT" THEN CLS:SYSTEM
  66. 640  SOUND 500,2
  67. 650  CLS
  68. 660  CLOSE 1:OPEN "I",1,"PHONE.DAT"
  69. 670  WHILE NOT EOF(1)
  70. 680  INPUT #1, F$,P$:IF INSTR(F$+P$,Q$)=0 THEN 730
  71. 690  K=K+1:PRINT F$;TAB(24)P$:R$=P$:GOSUB 830
  72. 700  FOR J%=900 TO 1100 STEP 40:SOUND J%,1:NEXT
  73. 710  Z$=INPUT$(1):IF Z$<>CHR$(32) AND Z$<>CHR$(27) THEN R$=F$+"."+P$:GOSUB 830:GOTO 700
  74. 720  IF Z$=CHR$(27) THEN SOUND 300,2:K=0:Q$="":I$="":CLS:GOTO 610
  75. 730  WEND
  76. 740  CLOSE 1
  77. 750  I$="":Q$=""
  78. 760  IF K=0 THEN R$="0":GOSUB 830 ELSE K=0
  79. 770  SOUND 3000,10:GOTO 590
  80. 780  '
  81. 790  '
  82. 800  STOP'
  83. 810  '
  84. 820  '
  85. 830  ' speak string routine
  86. 840  IF R$="" THEN R$=TEMP$
  87. 850  FOR T%=1 TO LEN(R$)
  88. 860     L$=MID$(R$,T%,1)
  89. 870     X%=INSTR(C$,L$):IF X%=0 THEN GOSUB 940:GOTO 910
  90. 880     IF X%>36 THEN GOSUB 1130 ELSE CALL TALK(A$(X%))
  91. 890     TEMP$=R$' in case of blank entry- loads last entry
  92. 900     FOR W=1 TO 50:NEXT' pause between characters
  93. 910  NEXT
  94. 920  RETURN
  95. 930  '
  96. 940  ' long feep for unspeakable characters
  97. 950  FOR W=1 TO 500:NEXT:BEEP:FOR W=1 TO 500:NEXT:RETURN' wait-feep-wait-return
  98. 960  ' say "OK" (need to avoid the wait-speak-wait)
  99. 970  CALL TALK(A$(15)):CALL TALK(A$(11)):RETURN
  100. 980  '
  101. 990  '
  102. 1000  ' input routine....
  103. 1010  WHILE I$<>CHR$(13)
  104. 1020  I$=INPUT$(1):IF ASC(I$)>ASC("Z")THEN I$=CHR$(ASC(I$)-32)
  105. 1030  IF LEN(Q$)=0 AND I$="+" THEN GOSUB 1150:GOTO 540' adds record
  106. 1040  IF I$="/" THEN R$=Q$:GOSUB 830:GOTO 1020
  107. 1050  IF I$=CHR$(8) AND LEN(Q$)=0 THEN BEEP:GOTO 1020
  108. 1060  IF LEN(Q$)=L% AND I$<>CHR$(13) AND I$<>CHR$(8) THEN BEEP:GOTO 1020
  109. 1070  I%=INSTR(C$,I$):IF I%=0 THEN BEEP:GOTO 1020
  110. 1080  IF I$=CHR$(8) THEN Q$=LEFT$(Q$,LEN(Q$)-1):PRINT BL$;:SOUND 1900,3
  111. 1090  IF I$<>CHR$(8) AND I$<>CHR$(13) THEN Q$=Q$+I$:PRINT I$;:IF I%>36 THEN GOSUB 1130 ELSE CALL TALK(A$(I%))
  112. 1100  '
  113. 1110  WEND
  114. 1120  RETURN
  115. 1130  ' wait routine
  116. 1140  FOR W=1 TO 650:NEXT:RETURN
  117. 1150  ' add record subroutine
  118. 1160  LOCATE 1,1:PRINT "Name: ";:R$="WHO":GOSUB 830
  119. 1170  GOSUB 1000:N$=Q$:LOCATE 2,1:PRINT "Tel#: ";:R$="NUM":GOSUB 830
  120. 1180  I$="":Q$=""
  121. 1190  GOSUB 1000:NM$=Q$
  122. 1200  I$="":Q$=""
  123. 1210  IF NM$="" OR N$="" THEN SOUND 300,5:FOR W=1 TO 500:NEXT :RETURN
  124. 1220  CLS:
  125. 1230  CLOSE 1:OPEN "A",1,"PHONE.DAT"
  126. 1240  WRITE #1, N$,NM$
  127. 1250  CLOSE 1:RETURN
  128.